home *** CD-ROM | disk | FTP | other *** search
/ EDUCORP 8 / Educorp2Compilation.sit / educorp2 / Demos / OpticMac Demo / OpticMac™ / OpticMac™ / background_2725.txt < prev    next >
Encoding:
Text File  |  1989-06-08  |  16.9 KB  |  625 lines
  1. -- background: 2725 from stack: in
  2. -- bmap block id: 3147
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: DentalMac
  6. ----- HyperTalk script -----
  7. on openbackground
  8.   global offset, showfield
  9.   put 0 into offset
  10.   put true into showfield
  11. end openbackground
  12.  
  13. on updatemenus
  14.   global thefilelist, theeditlist, theviewlist, theschedlist
  15.   global thetranslist, theprintlist, thewindowlist
  16.   global offset
  17.   if bg field "Viewer" is in "Guarantor Spouse" then
  18.     --file menu
  19.     put "New Family/N;(-;Open Family/O;Open Walk-In/W;Open Default Family;Close/L;Close All/A;(-;Inactive;Delete Family;(-;Preferences...;(-;Password...;(-;Repair...;(-;Transfer...;Quit/Q " into thefilelist
  20.     --edit menu
  21.     put "Undo/Z;(-;Cut/X;Copy/C;Paste/V;Clear/B;(-;(Show Next Selection;(Show Previous Selection;(-;(Select Inactive Families;(Show Ties" into theeditlist
  22.     --view menu
  23.     put "(Proc. Codes...;(Producer...;(-;(All/0;(Terry Smith/1;(Sally Smith/2;(Tim Smith/3" into theviewlist
  24.     --shedule menu
  25.     if offset=0 then
  26.       put "(Look-up Fees.../F;(-;Standard" into theschedlist
  27.     else
  28.       put "Look-up Fees.../F;(-;Standard" into theschedlist
  29.     end if
  30.     --transaction menu
  31.     put "(Cash Payment/H;(Check Payment/K;(Credit Card Payment/D;(Insurance Payment/I;(User Defined Payments 1-4;(-;(Adjustment[+];(Adjustment[-];(Uncollectible Write-Off;(-;(Work Completed;(-;(‚ÄúThank You‚Äù Sent" into thetranslist
  32.     -- print menu
  33.     put "(Insurance Form;(Insurance Tracer;(-;(Statement;(Treatment Plan;(-;(Family Summary;(Complete Family;(All Transaction;(-;(Mail Labels;(Chart Labels;General Label;(-;Page Setup..." into theprintlist
  34.   else if bg field "Viewer" is in "Patient Chart" then
  35.     --file menu
  36.     put "New Patient/N;(-;Open Family/O;Open Walk-In/W;Open Default Family;Close/L;Close All/A;(-;Inactive;Delete Patient;(-;Preferences...;(-;Password...;(-;Repair...;(-;Transfer...;Quit/Q " into thefilelist
  37.     --edit menu
  38.     put "Undo/Z;(-;Cut/X;Copy/C;Paste/V;Clear/B;(-;(Show Next Selection;(Show Previous Selection;(-;(Select Inactive Families;(Show Ties" into theeditlist
  39.     --view menu
  40.     put "(Proc. Codes...;(Producer...;(-;(All/0;Terry Smith/1;Sally Smith/2;Tim Smith/3" into theviewlist
  41.     --shedule menu
  42.     if offset=0 then
  43.       put "(Look-up Fees.../F;(-;Standard" into theschedlist
  44.     else
  45.       put "Look-up Fees.../F;(-;Standard" into theschedlist
  46.     end if
  47.     --transaction menu
  48.     put "(Cash Payment/H;(Check Payment/K;(Credit Card Payment/D;(Insurance Payment/I;(User Defined Payments 1-4;(-;(Adjustment[+];(Adjustment[-];(Uncollectible Write-Off;(-;(Work Completed;(-;(‚ÄúThank You‚Äù Sent" into thetranslist
  49.     -- print menu
  50.     put "(Insurance Form;(Insurance Tracer;(-;(Statement;(Treatment Plan;(-;(Family Summary;(Complete Family;(All Transaction;(-;(Mail Labels;Chart Labels;General Label;(-;Page Setup..." into theprintlist
  51.   else if bg field "Viewer" is "Ledger" then
  52.     --file menu
  53.     put "New Transaction/N;(-;Open Transaction/O;Open Walk-In/W;Open Default Family;Close/L;Close All/A;(-;Inactive;Delete;(-;Preferences...;(-;Password...;(-;Repair...;(-;Transfer...;Quit/Q " into thefilelist
  54.     --edit menu
  55.     put "Undo/Z;(-;Cut/X;Copy/C;Paste/V;Clear/B;(-;(Show Next Selection;(Show Previous Selection;(-;(Select Inactive Families;(Show Ties" into theeditlist
  56.     --view menu
  57.     put "(Proc. Codes...;(Producer...;(-;(All/0;(Terry Smith/1;(Sally Smith/2;(Tim Smith/3" into theviewlist
  58.     --shedule menu
  59.     if offset=0 then
  60.       put "(Look-up Fees.../F;(-;Standard" into theschedlist
  61.     else
  62.       put "Look-up Fees.../F;(-;Standard" into theschedlist
  63.     end if
  64.     --transaction menu
  65.     put "Cash Payment/H;Check Payment/K;Credit Card Payment/D;Insurance Payment/I;User Defined Payments 1-4;(-;Adjustment[+];Adjustment[-];Uncollectible Write-Off;(-;Work Completed;(-;‚ÄúThank You‚Äù Sent" into thetranslist
  66.     -- print menu
  67.     put "Insurance Form;Insurance Tracer;(-;Statement;Treatment Plan;(-;Family Summary;Complete Family;All Transaction;(-;Mail Labels;Chart Labels;General Label;(-;Page Setup..." into theprintlist
  68.   else if bg field "Viewer" is "Blank MainApp" then
  69.     --file menu
  70.     put "New Family/N;(-;Open Family/O;Open Walk-In/W;Open Default Family;(Close/L;(Close All/A;(-;(Inactive;(Delete Family;(-;Preferences...;(-;Password...;(-;Repair...;(-;Transfer...;Quit/Q " into thefilelist
  71.     --edit menu
  72.     put "Undo/Z;(-;Cut/X;Copy/C;Paste/V;Clear/B;(-;(Show Next Selection;(Show Previous Selection;(-;(Select Inactive Families;(Show Ties" into theeditlist
  73.     --view menu
  74.     put "(Proc. Codes...;(Producer...;(-;(All/0;(Terry Smith/1;(Sally Smith/2;(Tim Smith/3" into theviewlist
  75.     --shedule menu
  76.     if offset=0 then
  77.       put "(Look-up Fees.../F;(-;Standard" into theschedlist
  78.     else
  79.       put "Look-up Fees.../F;(-;Standard" into theschedlist
  80.     end if
  81.     --transaction menu
  82.     put "Cash Payment/H;Check Payment/K;Credit Card Payment/D;Insurance Payment/I;User Defined Payments 1-4;(-;Adjustment[+];Adjustment[-];Uncollectible Write-Off;(-;Work Completed;(-;‚ÄúThank You‚Äù Sent" into thetranslist
  83.     -- print menu
  84.     put "Insurance Form;Insurance Tracer;(-;Statement;Treatment Plan;(-;Family Summary;Complete Family;All Transaction;(-;Mail Labels;Chart Labels;General Label;(-;Page Setup..." into theprintlist
  85.   end if
  86. end updatemenus
  87.  
  88. on changeview which, cardname
  89.   global cardticks, showfield
  90.   put true into showfield
  91.   put the ticks into cardticks
  92.   hide card field "Prompter"
  93.   hide card field "Prompter" of card cardname
  94.   repeat with j=1 to 6
  95.     set hilite of bg button j to (which=j)
  96.   end repeat
  97.   go to card "BlankPat"
  98.   go to card cardname
  99. end changeview
  100.  
  101. on ocfilter
  102.   if the optionkey is down then
  103.     set hilite of card button "Cancel" to true
  104.     wait 5 ticks
  105.     set hilite of card button "Cancel" to false
  106.   else
  107.     set hilite of card button "OK" to true
  108.     wait 5 ticks
  109.     set hilite of card button "OK" to false
  110.   end if
  111.   go back
  112. end ocfilter
  113.  
  114. on makesel what,min,max,whichline
  115.   repeat with x=min to max
  116.     set hilite of card button x of card what to false
  117.   end repeat
  118.   if whichline>0 then
  119.     set hilite of card button whichline of card what to true
  120.   end if
  121. end makesel
  122.  
  123. on popup what,min,max,whichline
  124.   hide card field "Prompter"
  125.   makesel what,min,max,whichline
  126.   visual effect zoom open
  127.   go to card what
  128. end popup
  129.  
  130. on dotimecheck thecard, cardticks, delay
  131.   if the ticks - cardticks > delay and not the visible of card field "Prompter" or the optionkey is down then
  132.     lock screen
  133.     show card field "Prompter" of card thecard
  134.     unlock screen with visual dissolve
  135.   end if
  136. end dotimecheck
  137.  
  138.  
  139.  
  140.  
  141. -- part 1 (button)
  142. -- low flags: 00
  143. -- high flags: E003
  144. -- rect: left=8 top=313 right=335 bottom=87
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 3
  149. -- text size: 10
  150. -- style flags: 0
  151. -- line height: 13
  152. -- part name: Guarantor
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   changeview 1,"Guarantor"
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 2 (button)
  161. -- low flags: 00
  162. -- high flags: A003
  163. -- rect: left=91 top=313 right=335 bottom=170
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 3
  168. -- text size: 10
  169. -- style flags: 0
  170. -- line height: 13
  171. -- part name: Spouse
  172. ----- HyperTalk script -----
  173. on mouseUp
  174.   changeview 2,"Spouse"
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 6 (button)
  180. -- low flags: 00
  181. -- high flags: A003
  182. -- rect: left=174 top=313 right=335 bottom=253
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 1
  186. -- font id: 3
  187. -- text size: 10
  188. -- style flags: 0
  189. -- line height: 13
  190. -- part name: Patient
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   changeview 3,"Patient"
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 4 (button)
  199. -- low flags: 00
  200. -- high flags: A003
  201. -- rect: left=257 top=313 right=335 bottom=336
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 1
  205. -- font id: 3
  206. -- text size: 10
  207. -- style flags: 0
  208. -- line height: 13
  209. -- part name: Chart
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   changeview 4,"Chart"
  213. end mouseUp
  214.  
  215.  
  216.  
  217. -- part 22 (button)
  218. -- low flags: 00
  219. -- high flags: A003
  220. -- rect: left=340 top=313 right=335 bottom=419
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 0 / 0
  223. -- text alignment: 1
  224. -- font id: 3
  225. -- text size: 10
  226. -- style flags: 0
  227. -- line height: 13
  228. -- part name: Eyes
  229. ----- HyperTalk script -----
  230. on mouseUp
  231.   changeview 5,"Eyes"
  232. end mouseUp
  233.  
  234.  
  235.  
  236. -- part 5 (button)
  237. -- low flags: 00
  238. -- high flags: A003
  239. -- rect: left=423 top=313 right=335 bottom=502
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 0 / 0
  242. -- text alignment: 1
  243. -- font id: 3
  244. -- text size: 10
  245. -- style flags: 0
  246. -- line height: 13
  247. -- part name: Ledger
  248. ----- HyperTalk script -----
  249. on mouseUp
  250.   changeview 6,"Ledger"
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 9 (button)
  256. -- low flags: 00
  257. -- high flags: 0000
  258. -- rect: left=10 top=1 right=19 bottom=37
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 1
  262. -- font id: 0
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: AppleMenu
  267. ----- HyperTalk script -----
  268. on mouseDown
  269.   global thenumofdas, thedanames, theapplelist
  270.   if the optionkey is down then
  271.     pass mouseDown
  272.   end if
  273.  
  274.   put "About OpticMac‚Ñ¢;" & theapplelist into thelocallist
  275.   put the left of card window into lefty
  276.   add (the left of me + 1) to lefty
  277.   put the top of card window into bott
  278.   add (the bottom of me + 1) to bott
  279.   set the hilite of me to true
  280.   get PopUpMenu( thelocallist, 0, bott, lefty )
  281.   set the hilite of me to false
  282.   put it into itemhit
  283.   if (itemhit > 1) and (itemhit < (thenumofdas+3)) then
  284.     subtract 2 from itemhit
  285.     put item itemhit of thedanames into thestring
  286.     domenu thestring
  287.   end if
  288.   pass mousedown
  289. end mousedown
  290.  
  291.  
  292.  
  293. -- part 10 (button)
  294. -- low flags: 00
  295. -- high flags: 0000
  296. -- rect: left=33 top=1 right=19 bottom=73
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 0 / 0
  299. -- text alignment: 1
  300. -- font id: 0
  301. -- text size: 12
  302. -- style flags: 0
  303. -- line height: 16
  304. -- part name: FileMenu
  305. ----- HyperTalk script -----
  306. on mouseDown
  307.   global thefilelist
  308.   if the optionkey is down then
  309.     pass mouseDown
  310.   end if
  311.  
  312.   put the left of card window into lefty
  313.   add (the left of me + 1) to lefty
  314.   put the top of card window into bott
  315.   add (the bottom of me + 1) to bott
  316.   set the hilite of me to true
  317.   get PopUpMenu( thefilelist, 0, bott, lefty)
  318.   set the hilite of me to false
  319.   put it into itemhit
  320.   if itemhit = 1 then
  321.     if bg field "Viewer" is "Ledger" then
  322.       wait 30 ticks
  323.       show card field 1
  324.     end if
  325.   else if itemhit = 3 then
  326.     if bg field "Viewer" is "Blank MainApp" then
  327.       doopenfam
  328.     end if
  329.   else if itemhit is in "6 7" then
  330.     visual effect iris close
  331.     go to card "Blank MainApp"
  332.   else if itemhit =18 then
  333.     visual effect iris close
  334.     go to card "Finder"
  335.   else if itemhit =19 then
  336.     visual effect iris close
  337.     go to card "Finder"
  338.   end if
  339.   pass mousedown
  340. end mousedown
  341.  
  342.  
  343.  
  344. -- part 11 (button)
  345. -- low flags: 00
  346. -- high flags: 0000
  347. -- rect: left=69 top=1 right=19 bottom=112
  348. -- title width / last selected line: 0
  349. -- icon id / first selected line: 0 / 0
  350. -- text alignment: 1
  351. -- font id: 0
  352. -- text size: 12
  353. -- style flags: 0
  354. -- line height: 16
  355. -- part name: EditMenu
  356. ----- HyperTalk script -----
  357. on mouseDown
  358.   global theeditlist
  359.   if the optionkey is down then
  360.     pass mouseDown
  361.   end if
  362.  
  363.   put the left of card window into lefty
  364.   add (the left of me + 1) to lefty
  365.   put the top of card window into bott
  366.   add (the bottom of me +1 ) to bott
  367.   set the hilite of me to true
  368.   get PopUpMenu(theeditlist,0,bott,lefty)
  369.   set the hilite of me to false
  370.   pass mousedown
  371. end mousedown
  372.  
  373.  
  374.  
  375. -- part 12 (button)
  376. -- low flags: 00
  377. -- high flags: 0000
  378. -- rect: left=12 top=26 right=38 bottom=24
  379. -- title width / last selected line: 0
  380. -- icon id / first selected line: 0 / 0
  381. -- text alignment: 1
  382. -- font id: 0
  383. -- text size: 12
  384. -- style flags: 0
  385. -- line height: 16
  386. -- part name: New Button
  387. ----- HyperTalk script -----
  388. on mousedown
  389.   set icon of me to 15482
  390. end mousedown
  391.  
  392. on mousestilldown
  393.   if the mouseloc is within the rect of me then
  394.     set icon of me to 15482
  395.   else
  396.     set icon of me to 0
  397.   end if
  398. end mousestilldown
  399.  
  400. on mouseUp
  401.   set icon of me to 0
  402.   visual effect iris close
  403.   lock screen
  404.   go to card "Blank MainApp"
  405.   hide card field 1
  406.   unlock screen
  407. end mouseUp
  408.  
  409.  
  410. -- part 14 (button)
  411. -- low flags: 00
  412. -- high flags: 0000
  413. -- rect: left=108 top=1 right=19 bottom=158
  414. -- title width / last selected line: 0
  415. -- icon id / first selected line: 0 / 0
  416. -- text alignment: 1
  417. -- font id: 0
  418. -- text size: 12
  419. -- style flags: 0
  420. -- line height: 16
  421. -- part name: EditMenu
  422. ----- HyperTalk script -----
  423. on mouseDown
  424.   global theviewlist
  425.   if the optionkey is down then
  426.     pass mouseDown
  427.   end if
  428.  
  429.   put the left of card window into lefty
  430.   add (the left of me + 1) to lefty
  431.   put the top of card window into bott
  432.   add (the bottom of me +1 ) to bott
  433.   set the hilite of me to true
  434.   get PopUpMenu(theviewlist,0,bott,lefty)
  435.   set the hilite of me to false
  436.   pass mousedown
  437. end mousedown
  438.  
  439.  
  440.  
  441. -- part 15 (button)
  442. -- low flags: 00
  443. -- high flags: 0000
  444. -- rect: left=154 top=1 right=19 bottom=230
  445. -- title width / last selected line: 0
  446. -- icon id / first selected line: 0 / 0
  447. -- text alignment: 1
  448. -- font id: 0
  449. -- text size: 12
  450. -- style flags: 0
  451. -- line height: 16
  452. -- part name: EditMenu
  453. ----- HyperTalk script -----
  454. on mouseDown
  455.   global theschedlist, offset
  456.   if the optionkey is down then
  457.     pass mouseDown
  458.   end if
  459.  
  460.   put the left of card window into lefty
  461.   add (the left of me + 1) to lefty
  462.   put the top of card window into bott
  463.   add (the bottom of me +1 + (offset*16)) to bott
  464.   set the hilite of me to true
  465.   if offset>0 then
  466.     get PopUpMenu(theschedlist,offset+1,bott,lefty)
  467.   else
  468.     get PopUpMenu(theschedlist,offset,bott,lefty)
  469.   end if
  470.   set the hilite of me to false
  471.   put it into itemhit
  472.   if itemhit > 2 and itemhit < 5 then
  473.     put (itemhit-1) into offset
  474.     updatemenus
  475.   end if
  476.   pass mousedown
  477. end mousedown
  478.  
  479.  
  480.  
  481. -- part 16 (button)
  482. -- low flags: 00
  483. -- high flags: 0000
  484. -- rect: left=226 top=1 right=19 bottom=318
  485. -- title width / last selected line: 0
  486. -- icon id / first selected line: 0 / 0
  487. -- text alignment: 1
  488. -- font id: 0
  489. -- text size: 12
  490. -- style flags: 0
  491. -- line height: 16
  492. -- part name: EditMenu
  493. ----- HyperTalk script -----
  494. on mouseDown
  495.   global thetranslist
  496.   if the optionkey is down then
  497.     pass mouseDown
  498.   end if
  499.  
  500.   put the left of card window into lefty
  501.   add (the left of me + 1) to lefty
  502.   put the top of card window into bott
  503.   add (the bottom of me +1 ) to bott
  504.   set the hilite of me to true
  505.   get PopUpMenu(thetranslist,0,bott,lefty)
  506.   set the hilite of me to false
  507.   pass mousedown
  508. end mousedown
  509.  
  510.  
  511.  
  512. -- part 17 (button)
  513. -- low flags: 00
  514. -- high flags: 0000
  515. -- rect: left=314 top=1 right=19 bottom=363
  516. -- title width / last selected line: 0
  517. -- icon id / first selected line: 0 / 0
  518. -- text alignment: 1
  519. -- font id: 0
  520. -- text size: 12
  521. -- style flags: 0
  522. -- line height: 16
  523. -- part name: EditMenu
  524. ----- HyperTalk script -----
  525. on mouseDown
  526.   global theprintlist
  527.   if the optionkey is down then
  528.     pass mouseDown
  529.   end if
  530.  
  531.   put the left of card window into lefty
  532.   add (the left of me + 1) to lefty
  533.   put the top of card window into bott
  534.   add (the bottom of me +1 ) to bott
  535.   set the hilite of me to true
  536.   get PopUpMenu(theprintlist,0,bott,lefty)
  537.   set the hilite of me to false
  538.   pass mousedown
  539. end mousedown
  540.  
  541.  
  542.  
  543. -- part 18 (button)
  544. -- low flags: 00
  545. -- high flags: 0000
  546. -- rect: left=359 top=1 right=19 bottom=435
  547. -- title width / last selected line: 0
  548. -- icon id / first selected line: 0 / 0
  549. -- text alignment: 1
  550. -- font id: 0
  551. -- text size: 12
  552. -- style flags: 0
  553. -- line height: 16
  554. -- part name: EditMenu
  555. ----- HyperTalk script -----
  556. on mouseDown
  557.   global thewindowlist
  558.   if the optionkey is down then
  559.     pass mouseDown
  560.   end if
  561.  
  562.   put the left of card window into lefty
  563.   add (the left of me + 1) to lefty
  564.   put the top of card window into bott
  565.   add (the bottom of me +1 ) to bott
  566.   set the hilite of me to true
  567.   get PopUpMenu(thewindowlist,0,bott,lefty)
  568.   set the hilite of me to false
  569.   pass mousedown
  570. end mousedown
  571.  
  572.  
  573.  
  574. -- part 19 (field)
  575. -- low flags: 80
  576. -- high flags: 0002
  577. -- rect: left=229 top=41 right=58 bottom=507
  578. -- title width / last selected line: 0
  579. -- icon id / first selected line: 0 / 0
  580. -- text alignment: 0
  581. -- font id: 3
  582. -- text size: 12
  583. -- style flags: 0
  584. -- line height: 16
  585. -- part name: Viewer
  586.  
  587.  
  588. -- part 20 (button)
  589. -- low flags: 00
  590. -- high flags: 2000
  591. -- rect: left=483 top=3 right=18 bottom=498
  592. -- title width / last selected line: 0
  593. -- icon id / first selected line: 21847 / 21847
  594. -- text alignment: 1
  595. -- font id: 0
  596. -- text size: 12
  597. -- style flags: 0
  598. -- line height: 16
  599. -- part name: New Button
  600. ----- HyperTalk script -----
  601. on mouseUp
  602.   go home
  603. end mouseUp
  604.  
  605.  
  606.  
  607. -- part 23 (button)
  608. -- low flags: 00
  609. -- high flags: 2000
  610. -- rect: left=457 top=1 right=19 bottom=479
  611. -- title width / last selected line: 0
  612. -- icon id / first selected line: 26676 / 26676
  613. -- text alignment: 1
  614. -- font id: 0
  615. -- text size: 12
  616. -- style flags: 0
  617. -- line height: 16
  618. -- part name: 
  619. ----- HyperTalk script -----
  620. on mouseUp
  621.   visual effect dissolve
  622.   go to card 11 of stack "Machealth Finder"
  623. end mouseUp
  624.  
  625.